The Netherlands - A Compact World/The Netherlands.iso/chapters/7.1.2.dxr/00019_scroll_txt.ls

Text File | 2004-06-10 | 779 b | 46 lines

property spriteNum, pScroll, pMousev, pSpritev, pMin, pMax, pState

on beginSprite me
  pState = 1
  pMin = sprite(spriteNum).locV
  pMax = the stageBottom - the stageTop - pMin - sprite(spriteNum).member.height
  pSpritev = sprite(spriteNum).locV
  pScroll = 0
  add(the actorList, me)
end

on endSprite me
  deleteOne(the actorList, me)
  cursor(-1)
end

on mouseDown
  pSpritev = sprite(spriteNum).locV
  pMousev = the mouseV
  pScroll = 1
end

on mouseUp me
  pScroll = 0
end

on mouseUpOutSide me
  pScroll = 0
end

on changestate state
end

on stepFrame me
  if pScroll then
    pos = (2 * (the mouseV - pMousev)) + pSpritev
    if pos < pMax then
      pos = pMax
    end if
    if pos > pMin then
      pos = pMin
    end if
    sprite(spriteNum).locV = pos
  end if
end